home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1998 March / Macworld (1998-03) (Disk 1).dmg / Shareware World / Info / For Developers / GhostScript 5.10 / MacGS-510 / files / acctest.ps next >
Text File  |  1996-01-09  |  4KB  |  100 lines
  1. %!
  2. % Check that operators do their access tests correctly.
  3.  
  4. % proc dotest => .
  5. /dotest
  6.   {
  7.     dup
  8.     mark
  9.     exch
  10.     stopped not % False if error, true if no error.
  11.     { (Allowed access: ) print cleartomark == }
  12.     if
  13.     clear
  14.   }
  15. def
  16.  
  17. 0 0 moveto % So the show commands don't bomb because of nocurrentpoint.
  18.  
  19. { [1 2] executeonly aload }                    dotest 
  20. { (string) executeonly (seek) anchorsearch }            dotest
  21. { (string) (seek) executeonly anchorsearch }            dotest
  22. { 100 101 (string) noaccess ashow}                dotest
  23. { 100 1 array readonly astore }                    dotest
  24. { 100 101 102 103 104 (string) noaccess awidthshow }        dotest
  25. { 1 dict noacess begin }                    dotest
  26. { 1 array executeonly 1 array copy }                dotest
  27. { 1 array 1 array readonly copy }                dotest
  28. { 1 dict noaccess 1 dict copy }                    dotest
  29. { 1 dict 1 dict readonly copy }                    dotest
  30. { 1 string executeonly 1 string copy }                dotest
  31. { 1 string 1 string readonly copy }                dotest
  32. { (100) executeonly cvi }                    dotest
  33. { (string) executeonly cvn }                    dotest
  34. { (100.001) executeonly cvr }                    dotest
  35. { 1 10 1 string readonly cvrs }                    dotest
  36. { true 5 string readonly cvs }                    dotest
  37. { 1 dict readonly begin /foo true def }                dotest
  38. { 10 array readonly dictstack }                    dotest 
  39. { 1 string executeonly 1 string eq }                dotest
  40. { 1 string 1 string executeonly eq }                dotest
  41. { 10 array readonly execstack }                    dotest
  42. { 1 string noaccess executeonly }                dotest
  43. { 1 array noaccess executeonly }                dotest
  44. { 1 array executeonly { pop } forall }                dotest
  45. { 1 dict noaccess { pop pop } forall }                dotest
  46. { 1 string executeonly { pop } forall }                dotest
  47. { (string1) executeonly (string2) ge }                dotest
  48. { (string1) (string2) executeonly ge }                dotest
  49. { 1 array executeonly 0 get }                    dotest
  50. { 1 dict noaccess /key get }                    dotest
  51. { 1 string executeonly 0 get }                    dotest
  52. { 1 array executeonly 0 1 getinterval }                dotest
  53. { 1 string executeonly 0 1 getinterval }            dotest
  54. { (string1) executeonly (string2) gt }                dotest
  55. { (string1) (string2) executeonly gt }                dotest
  56. { 1 dict noaccess /key known }                    dotest
  57. { {} (string) executeonly kshow }                dotest
  58. { (string1) executeonly (string2) le }                dotest
  59. { (string1) (string2) executeonly le }                dotest
  60. { 1 array executeonly length }                    dotest
  61. { 1 dict noaccess length }                    dotest
  62. { 1 string executeonly length }                    dotest
  63. %%{ /foo 1 dict def foo begin /bar foo def bar noaccess pop /key load } dotest
  64. { (string1) executeonly (string2) lt }                dotest
  65. { (string1) (string2) executeonly lt }                dotest
  66. { 1 dict noaccess maxlength }                    dotest
  67. { 1 string executeonly 1 string ne }                dotest
  68. { 1 string 1 string executeonly ne }                dotest
  69. %{ newpath 0 0 moveto (a) false charpath 
  70. %  {} {} {} {} pathforall closepath }                dotest
  71. { 1 array executeonly 0 put }                    dotest
  72. { 1 dict noaccess /key put }                    dotest
  73. { 1 string executeonly 0 put }                    dotest
  74. { 1 array executeonly 0 1 putinterval }                dotest
  75. { 1 string executeonly 0 1 putinterval }            dotest
  76. { (access.ps) (r) file executeonly read }            dotest
  77. { (access.ps) (r) file executeonly 10 string readhexstring }    dotest
  78. { (access.ps) (r) file 10 string readonly readhexstring }    dotest
  79. { (access.ps) (r) file executeonly 100 string readline }    dotest
  80. { (access.ps) (r) file 100 string readonly readline }        dotest
  81. { (access.ps) (r) file executeonly 10 string readstring }    dotest
  82. { (access.ps) (r) file 10 string readonly readstring }        dotest
  83. % run does not check for no read access?
  84. { (string) executeonly (seek) search }                dotest
  85. { (string) (seek) executeonly search }                dotest
  86. { (string) executeonly show }
  87. %% some test for store.
  88. { (string) executeonly stringwidth }                dotest
  89. { (access.ps) (r) file executeonly token }            dotest
  90. { (10) executeonly token }                    dotest
  91. { /foo 1 dict def foo begin /bar foo def bar noaccess pop /key where } dotest
  92. { 100 101 102 (string) noaccess widthshow }            dotest
  93. { (/tmp/_.ps) noaccess (w) file closefile }            dotest
  94. { (/tmp/_.ps) (w) noaccess file closefile }            dotest
  95. { (/tmp/_.ps) (w) file executeonly 100 write }            dotest
  96. { (/tmp/_.ps) (w) file executeonly 10 string writehexstring }    dotest
  97. { (/tmp/_.ps) (w) file 10 string executeonly writehexstring }    dotest
  98. { (/tmp/_.ps) (w) file executeonly 10 string writestring }    dotest
  99. { (/tmp/_.ps) (w) file 10 string executeonly writestring }    dotest
  100.